home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed50.d64 / french numbers (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  178 lines
  1. 0 GOTO1450
  2. 1 GOTO910
  3. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  4. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  5. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  6. 5 [153]"hhhhhhh`  
  7. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  8. 7 [153]"CLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  9. 35 IFUW=0THENSYSUU,15
  10. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  16. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  17. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  18. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  19. 95 IFLEN(US$)=0THEN110
  20. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  21. 105 RETURN
  22. 110 IFUA=46THENRETURN
  23. 115 IFUA=32ANDUR<>0THENRETURN
  24. 120 IFUA>47ANDUA<58THENRETURN
  25. 125 IFUA>64ANDUA<91THENRETURN
  26. 130 IFUA<193ORUA>218THENUI$="":RETURN
  27. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  28. 140 RETURN
  29. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  30. 150 UZ=1:UV%=PEEK(UT):GOTO300
  31. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
  32. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  33. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  34. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  35. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  36. 299 :
  37. 300 PRINT"[147]":POKEUT,UU%:POKEUY,11:POKEUX,11
  38. 305 PRINT"                M E N U"
  39. 310 PRINT"    --------------------------------"
  40. 315 PRINT"       1.   FRENCH  NUMBERS "
  41. 320 PRINT"       2.   GUIDE DE L'ELEVE"
  42. 325 PRINT"       3.   GUIDE DU PROFESSEUR"
  43. 330 PRINT"       4.   ABANDON"
  44. 335 PRINT"    --------------------------------":GOSUB790:GOSUB760
  45. 340 PRINT"       APPUIE SUR UNE TOUCHE (1-4) ";
  46. 345 UL=1:US$="1234"
  47. 347 GOSUB35:US$=""
  48. 350 ONVAL(UR$)GOSUB1000,400,500,2000
  49. 355 GOTO300
  50. 399 :
  51. 400 PRINT"[147]":POKEUT,UL%:POKEUY,11:POKEUX,11
  52. 405 PRINT"[147]             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  53. 411 [153]"OPEN    LENE LOGICIEL EPROUVE LA TRADUCTION"
  54. 412 [153]"    DES NUMEREUX 1 - 10 EN ASCRANCAIS.
  55. 413 PRINT"    [201]L Y EN A QUINZE[159] QUESTIONS."
  56. 490 GOSUB835
  57. 495 RETURN
  58. 499 :
  59. 500 PRINT"[147]":POKEUT,UL%:POKEUY,11:POKEUX,11
  60. 502 PRINT"[159] [193]U MEILLEUR DE NOTRE CONNAISSANCE"
  61. 503 PRINT" CE LOGICIEL RELEVE DU DOMAINE PUBLIC."
  62. 504 PRINT" [211]I CE N'EST PAS LE CAS, VEUILLE"
  63. 505 PRINT" COMMUNIQUE AVEC:"
  64. 506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
  65. 507 PRINT"          3370 [208]HARMACY [193]VE.
  66. 508 [153]"          ATNGINCOURT, (null)NTARIO"
  67. 509 [153]"          LENANADA, (null)1(null) 2(null)4"
  68. 510 [153]"          (416) 499-4292"
  69. 511 [141]835
  70. 512 [153]"LOADOPEN    (null)OM DE PROGRAMME:  ASCRENCH (null)UMBERS "
  71. 513 [153]"         VALCRIT PAR  :"
  72. 514 [153]"        (null)EVISE PAR  : (null)IERRE (null)AGSDALE":[153][166]22);"& MID$EAN (null)AWCZAK"
  73. 515 [153]"        (null)EVISE PAR  : PEEKILL LENUMBERLAND"
  74. 516 [153]"    LENE LOGICIEL EST COMPATIBLE AVEC "
  75. 519 [153]"           LE LENOMMODORE 64"
  76. 590 [141]835
  77. 595 [142]
  78. 599 :
  79. 700 [143] <YES>
  80. 705 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  81. 710 [151]54296,15:[151]54277,42:[151]54278,250
  82. 715 [151]54276,23:[151]54273,23:[151]54272,191
  83. 720 [129]TC[178]1[164]200:[130]:[151]54276,32:[129]TC[178]1[164]250:[130]
  84. 725 [151]54296,0:[142]
  85. 730 [143] <NO>
  86. 735 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  87. 740 [151]54296,15:[151]54277,18:[151]54278,242
  88. 745 [151]54276,33:[151]54273,4:[151]54272,48
  89. 750 [129]TC[178]1[164]300:[130]:[151]54276,32:[129]TC[178]1[164]400:[130]
  90. 755 [151]54296,0:[142]
  91. 760 [143] <BLIP>
  92. 765 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  93. 770 [151]54296,7:[151]54277,42:[151]54278,250
  94. 775 [151]54276,23:[151]54273,23:[151]54272,191
  95. 780 [129]TC[178]1[164]30:[130]:[151]54276,32:[129]TC[178]1[164]50:[130]
  96. 785 [151]54296,0:[142]
  97. 790 [129]TB[178]1[164]500:[130]:[142]
  98. 791 [129]TB[178]1[164]1000:[130]:[142]
  99. 792 [129]TB[178]1[164]2000:[130]:[142]
  100. 793 [129]TB[178]1[164]3000:[130]:[142]
  101. 799 :
  102. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,1:[151]UX,1
  103. 801 [129]I[178]1[164]38:[153]" WAIT";:[130]
  104. 802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
  105. 803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
  106. 804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
  107. 805 [153]"STEP  WAIT
  108. 806 PRINT" [146]   [146][169]
  109. 807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
  110. 808 PRINT"[223]  [146]
  111. 809 [153]"EDUCATIONAL
  112. 810 PRINT"SOFTWARE
  113. 811 [153]"1983 ":[141]791:[141]760
  114. 812 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT"UC$:UI[178]0
  115. 813 [161]UI$:[139]UI$[179][177]" "[167]UI[178]UI[170]1:[139]UI[179]250[167]813
  116. 814 [137]300
  117. 835 [141]791:[141]760
  118. 837 [151]UN,0:[153][200](UD$,24);"CONT PEEKARRE D'ESPACEMENT POUR CONTINUERWAITLIST"
  119. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  120. 845 [142]
  121. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  122. 855 [153]" --------------------------------------"
  123. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,3);"                              "
  124. 865 UH[178]0:[153]"":[142]
  125. 875 [153][200](UD$,24);"      UN MOMENT S'IL VOUS PLAIT...     ":[142]
  126. 899 :
  127. 900 US[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UB[178]1024:UD[178]1084:UE[178]1105
  128. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087:UX[178]53280
  129. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  130. 905 UD$[178]"":UP$[178]"                                      "
  131. 907 UT$[178]" ASCRENCH (null)UMBERS"
  132. 909 [142]
  133. 910 [141]900:[153]"LOAD "
  134. 920 [141]800:[137]300
  135. 999 :
  136. 1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0
  137. 1010 UT$[178]" ASCRENCH (null)UMBERS":[151]UT,UL%:UG$[178]"(null)UESTION #"
  138. 1020 [153]"LOAD":[141]791
  139. 1160 [140]:[129]T[178]1[164]10:[135]E$(T):[130]T
  140. 1170 [129]T[178]1[164]10:[135]F$(T):[130]T
  141. 1180 [153]"LOAD    VALTUDIEZ CES NUMEREUX:OPEN"
  142. 1190 [143] THIS PRINTS THE ENGLISH AND THE FRENCH WORDS SIDE BY SIDE
  143. 1200 [129]T[178]1[164]10:[153],E$(T),F$(T):[153]:[130]T
  144. 1210 [141]835:CO[178]0:AT[178]0:CL$[178]"ONONONON"[170]UP$[170]UP$[170]UP$[170]UP$[170]"ONONONONONON"
  145. 1220 [129]J[178]0[164]14:UH[178]0:UP[178]J:[141]850
  146. 1240 I[178][181]([187](1)[172]10[170]1)
  147. 1250 W[178]1
  148. 1260 [153]" (null)UE VEUT DIRE CE MOT EN ASCRANCAIS?":[153]"    "E$(I):[141]760
  149. 1270 [153]"  ? ";:US$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ":UL[178]6:[141]35:W$[178]UR$
  150. 1280 [139]W$[178]F$(I)[167][153]"SYS     LENORRECT LIST":[139]W[178]1[167]CO[178]CO[170]1:[141]700
  151. 1290 [139]W$[179][177]F$(I)[137]1320
  152. 1300 [141]835
  153. 1310 AT[178]AT[170]W:[130]J:[137]1400
  154. 1320 W[178]W[170]1:[139]W[179]3[167][153]"DEF (null)ORRY, TRY AGAIN":[141]730:[137]1270
  155. 1323 [153]CL$:[153]" (null)ORRY, THE CORRECT WORD IS "F$(I)"WAIT.":[153] " (null)OW TYPE IT IN."
  156. 1330 [137]1270
  157. 1340 [131]"ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE","TEN"
  158. 1350 [131]"UN","DEUX","TROIS","QUATRE","CINQ","SIX","SEPT","HUIT","NEUF","DIX"
  159. 1360 [128]
  160. 1400 UG$[178]" (null)ESULTS":UH[178]1:[141]850:[153]"  (null)OU ANSWERED"CO" QUESTION(S) RIGHT"
  161. 1410 [153]"  ON THE FIRST ATTEMPT."
  162. 1420 [153]"  (null)OU TOOK"AT"ATTEMPTS TO ANSWER THE"
  163. 1430 [153]" 15 QUESTIONS."
  164. 1440 [139]CO[179]15[167][153]" ATN LITTLE MORE STUDYING WOULD HELP YOU.":[137]1470
  165. 1450 [153]"CLR               ASC(null)(null)(null)RIGHT$STR$ATNPEEK(null)VAL!!             "
  166. 1460 [141]700:[141]700:[141]793
  167. 1470 [141]835:[142]
  168. 2000 [153]"LOADSYS YOU HAVE A CHOICE:
  169. 2010 PRINT"PRESS  P [146] TO PLAY AGAIN
  170. 2020 [153]"PRESS  M WAIT TO RETURN TO DISK MENU
  171. 2030 GETR$:IFR$<>"P"ANDR$<>"M"THEN2030
  172. 2040 IFR$="P"THEN RUN
  173. 2050 PRINT"[147]RETURNING TO THE DISK MENU."
  174. 2060 LOAD"MENU",8
  175. 2070 RUN
  176. 2080 END
  177. 3000 REM WHC 93:10:21
  178.